The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Panorama.dxr/00087_swapMemeber.ls

Text File | 1998-11-19 | 654 b | 17 lines

on swapmember original, replace, flag
  set r to the rect of sprite original
  set spriteleft to the left of r
  set spriteright to the right of r
  set spritetop to the top of r
  set spritebottom to the bottom of r
  set width1 to the width of sprite original
  set width2 to the width of member replace
  set height1 to the height of sprite original
  set height2 to the height of member replace
  set the width of sprite original to width2
  set the height of sprite original to height2
  set the castLibNum of sprite original to the number of castLib "Room"
  set the memberNum of sprite original to the number of member replace
  updateStage()
end